﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class RptinvfisFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As RptinvfisBE
        Dim tmpRptinvfis As RptinvfisBE = New RptinvfisBE()
        Try
            With tmpRptinvfis
                .AjusteE = convertDTFromDb.ConvertDecimal("AusteE")
                .AjusteS = convertDTFromDb.ConvertDecimal("AjusteS")
                .Anio = convertDTFromDb.convertInt32("Anio")
                .ClaProducto = convertDTFromDb.ConvertString("ClaProducto")
                .Costo = convertDTFromDb.ConvertDecimal("Costo")
                .ExistAct = convertDTFromDb.ConvertDecimal("ExistAct")
                .ExistAnt = convertDTFromDb.ConvertDecimal("ExistAnt")
                .IdAlmacen = convertDTFromDb.ConvertString("IdAlmacen")
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Periodo = convertDTFromDb.convertInt32(dr.Item("Periodo"))
            End With
            Return tmpRptinvfis
        Catch ex As Exception
            Throw
        Finally
            tmpRptinvfis = Nothing
        End Try
    End Function
End Class
